1) PRESSO.SAI[MF,DEK] and 2) PRESSO.SAI[MF,DRF]	1-22-81 11:19	pages 4,4

**** File 1) PRESSO.SAI[MF,DEK]/4P/211L
1)		z←0; zt←rast[xwbase+ylow] lsh xbit land 1;
1)			xbitl←xbit-1+3; xbitr←xbit+1+1;
**** File 2) PRESSO.SAI[MF,DRF]/4P/211L
2)		z←0; var!gets!rast!lsh!expr!land!const(zt,xwbase+ylow,xbit,1)
2)					# zt←rast[xwbase+ylow] lsh xbit land 1;
2)			xbitl←xbit-1+3; xbitr←xbit+1+1;
***************


**** File 1) PRESSO.SAI[MF,DEK]/4P/217L
1)			if y≠yhigh then zt←rast[xw+1] lsh xbit land 1 else zt←0;
1)			if z=0 then
**** File 2) PRESSO.SAI[MF,DRF]/4P/218L
2)			if y≠yhigh then 
2)				var!gets!rast!lsh!expr!land!const(zt,xw+1,xbit,1) 
2)				# zt←rast[xw+1] lsh xbit land 1 
2)			else zt←0;
2)			if z=0 then
***************


**** File 1) PRESSO.SAI[MF,DEK]/4P/222L
1)				zw←rast[xw];
1)				if xbit neq -35 then zl←zw lsh xbitl land 8
1)					else if x=xleft then zl←0
1)						else zl←rast[xw-rspan] lsh 3 land 8;
1)				if xbit neq 0 then zr←zw lsh xbitr land 2
1)					else if x=xright then zr←0
1)						else zr←rast[xw+rspan] lsh -35 lsh 1;
1)				c ← zl + zb + zr + zt;
**** File 2) PRESSO.SAI[MF,DRF]/4P/226L
2)				var!gets!rast(zw,xw) # zw←rast[xw];
2)				if xbit neq -35 then zl←zw lsh xbitl land 8
2)					else if x=xleft then zl←0
2)						else var!gets!rast!lsh!const!land!const
2)							(zl,xw-rspan,3,8)
2)						 # zl←rast[xw-rspan] lsh 3 land 8;
2)				if xbit neq 0 then zr←zw lsh xbitr land 2
2)					else if x=xright then zr←0
2)						else var!gets!rast!lsh!const!land!const
2)							(zr,xw+rspan,-35,1)
2)						 # zr←rast[xw+rspan] lsh -35 lsh 1;
2)				c ← zl + zb + zr + zt;
***************